﻿Class Application

    ' Application-level events, such as Startup, Exit, and DispatcherUnhandledException
    ' can be handled in this file.

    Private Sub Application_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
        'Dim uri As New Uri("PresentationFramework.Aero;V4.0.0.0;31bf3856ad364e35;component\\themes/aero.normalcolor.xaml", UriKind.Relative)
        'Dim uri As New Uri("PresentationFramework.Classic;V4.0.0.0;31bf3856ad364e35;component\\themes/classic.xaml", UriKind.Relative)
        'Dim uri As New Uri("PresentationFramework.Luna;V3.0.0.0;31bf3856ad364e35;component\themes/luna.normalcolor.xaml", UriKind.Relative)
        'Dim uri As New Uri("PresentationFramework.Royale;V4.0.0.0;31bf3856ad364e35;component\\themes/royale.normalcolor.xaml", UriKind.Relative)

        'Resources.MergedDictionaries.Add(CType(Application.LoadComponent(uri), ResourceDictionary))


        AppData.Config = New Config
        AppData.Config.ColorSet = ColorSet.FromFile(IO.Path.Combine("Data\Colors", "default.txt"))
        AppData.Config.TileSet = New Tileset(IO.Path.Combine("Data\Tilesets", "curses_square_16x16.png"))
    End Sub
End Class
